home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed12.d64 / challenge 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  229 lines
  1. 100 POKE53280,0:POKE53281,0:POKE646,9:POKE53272,23
  2. 105 A$="2"
  3. 110 REM THIS MODULE BY: BILL CUMBERLAND                         89 11 03
  4. 115 WR=0:N=0
  5. 120 PRINT"[147]                                        [146]";
  6. 130 PRINT"          [199][201][204][204][201][193][206]'[211][160][195][200][193][204][204][197][206][199][197]           [146]";
  7. 140 PRINT"                                        [146]";
  8. 150 PRINT"                [213][206][201][212] "A$"                  [146]";
  9. 160 PRINT"                                        [146]":GOSUB910:GOSUB860
  10. 170 PRINT"          [201]NSTRUCTIONS?  [217]/[206]"
  11. 180 GETR$:IFR$<>"Y"ANDR$<>"N"THEN180
  12. 190 IFR$="N"THEN1000
  13. 200 PRINT"[159][147]              [201][206][211][212][210][213][195][212][201][207][206][211] [146]":GOSUB910:GOSUB860
  14. 210 PRINT"    [212]HE OBJECTIVE OF THIS EXERCISE IS
  15. 220 [153]"    TO TYPE IN THE CORRECT WORD THAT
  16. 230 PRINT"    IS MISSING IN A SENTENCE.
  17. 240 [153]"    (null)HERE ARE 20 QUESTIONS.
  18. 250 PRINT"    [217]OUR SCORE IS DISPLAYED AT THE
  19. 260 [153]"    CONCLUSION OF THE EXERCISE.":[141]930:[141]860
  20. 270 [153]"DEF    (null)HEN YOU ARE READY, PRESS THE            (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSEWAIT."
  21. 280 [161]R$:[139]R$[179][177][199](32)[167]280
  22. 290 [137]1000
  23. 600 N[178]N[170]1:[153]"PRINT#ONONON  (null)UESTION "N"":[142]:[141]910:[141]860
  24. 700 [143] <TIME UP> SOUND
  25. 705 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,8
  26. 710 [151]54277,8:[151]54278,255:[151]54276,23
  27. 715 [129]Z[178]1[164]3:F1[178]2
  28. 720 [129]Y[178]1[164]3:F2[178]8
  29. 725 [151]54273,F1
  30. 730 [129]X[178]1[164]5:[151]54287,F2
  31. 735 F2[178]F2[172]1.4:[130]X:F1[178]F1[172]1.5:[130]Y
  32. 740 [129]W[178]1[164]10:[151]54287,F2
  33. 745 F2[178]F2[172]1.05:[130]W:[130]Z:[151]54287,15
  34. 750 [151]54296,0:[142]
  35. 780 [153]"DEF     (null)RESS  (null)(null)ATNLENVALCLOSEPEEKATN(null) WAIT TO CONTINUE."
  36. 790 [161]R$:[139]R$[179][177][199](32)[167]790
  37. 795 [142]
  38. 800 [143] <YES> SOUND
  39. 805 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  40. 810 [151]54296,15:[151]54277,42:[151]54278,250
  41. 815 [151]54276,23:[151]54273,23:[151]54272,191
  42. 820 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  43. 825 [151]54296,0:[142]
  44. 830 [143] <NO> SOUND
  45. 835 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  46. 840 [151]54296,15:[151]54277,18:[151]54278,242
  47. 845 [151]54276,33:[151]54273,4:[151]54272,48
  48. 850 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  49. 855 [151]54296,0:[142]
  50. 860 [143] <BLIP> SOUND
  51. 865 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  52. 870 [151]54296,7:[151]54277,42:[151]54278,250
  53. 875 [151]54276,23:[151]54273,23:[151]54272,191
  54. 880 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  55. 885 [151]54296,0:[142]
  56. 900 [143] TIMERS
  57. 905 [129]T[178]1[164]500:[130]:[142]
  58. 910 [129]T[178]1[164]1000:[130]:[142]
  59. 920 [129]T[178]1[164]2000:[130]:[142]
  60. 930 [129]T[178]1[164]3000:[130]:[142]
  61. 940 [129]T[178]1[164]4000:[130]:[142]
  62. 950 [129]T[178]1[164]5000:[130]:[142]
  63. 999 :
  64. 1000 [141]910:[153]"LOAD  (null)E HAD A TOTOTOTOTO TIME AT THE PARTY.":[141]600
  65. 1010 [153]"PRINT  (null)ELECT  [ NICE - NEECE - NECE ]":[141]860
  66. 1020 [153]"  ":[133] B$
  67. 1030 [139]B$[178]"NICE"[167][153]"PRINT   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1050
  68. 1040 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  NICE WAIT.":[141]830:WR[178]WR[170]1
  69. 1045 [141]930:[141]780
  70. 1049 :
  71. 1050 [141]910:[153]"LOAD  STR$ID YOU TOTOTOTOTO THE CAT IN?":[141]600
  72. 1060 [153]"PRINT  (null)ELECT  [ LIT - LETE - LET ]":[141]860
  73. 1070 [153]"  ":[133] B$
  74. 1080 [139]B$[178]"LET"[167][153]"SYS   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1100
  75. 1090 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  LET WAIT.":[141]830:WR[178]WR[170]1
  76. 1095 [141]930:[141]780
  77. 1099 :
  78. 1100 [141]910:[153]"LOAD  (null)OULD YOU TOTOTOTO THIS LETTER?":[141]600
  79. 1110 [153]"PRINT  (null)ELECT  [ TAKE - TAK - TIKE ]":[141]860
  80. 1120 [153]"  ":[133] B$
  81. 1130 [139]B$[178]"TAKE"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1150
  82. 1140 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  TAKE WAIT.":[141]830:WR[178]WR[170]1
  83. 1145 [141]930:[141]780
  84. 1149 :
  85. 1150 [141]910:[153]"LOAD  (null)ETER TOTOTOTOTO (null)ARY TO THE STORE.":[141]600
  86. 1160 [153]"PRINT  (null)ELECT  [ CENT - SENT - SCENT ]":[141]860
  87. 1170 [153]"  ":[133] B$
  88. 1180 [139]B$[178]"SENT"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1200
  89. 1190 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  SENT WAIT.":[141]830:WR[178]WR[170]1
  90. 1195 [141]930:[141]780
  91. 1199 :
  92. 1200 [141]910:[153]"LOAD  (null)OUR TOTOTOTOTO BARKED ALL NIGHT.":[141]600
  93. 1210 [153]"PRINT  (null)ELECT  [ DAWG - DOGE - DOG ]":[141]860
  94. 1220 [153]"  ":[133] B$
  95. 1230 [139]B$[178]"DOG"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1250
  96. 1240 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  DOG WAIT.":[141]830:WR[178]WR[170]1
  97. 1245 [141]930:[141]780
  98. 1249 :
  99. 1250 [141]910:[153]"LOAD  (null)USAN WANTED TOTOTOTOTO APPLE.":[141]600
  100. 1260 [153]"PRINT  (null)ELECT  [ A - ANN - AN ]":[141]860
  101. 1270 [153]"  ":[133] B$
  102. 1280 [139]B$[178]"AN"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1300
  103. 1290 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  AN WAIT.":[141]830:WR[178]WR[170]1
  104. 1295 [141]930:[141]780
  105. 1299 :
  106. 1300 [141]910:[153]"LOAD  (null)HE TEACHER WANTED TOTOTOTOTO  PAPER.":[141]600
  107. 1310 [153]"PRINT  (null)ELECT  [ EVER - EVRY - EVERY ]":[141]860
  108. 1320 [153]"  ":[133] B$
  109. 1330 [139]B$[178]"EVERY"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1350
  110. 1340 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  EVERY WAIT.":[141]830:WR[178]WR[170]1
  111. 1345 [141]930:[141]780
  112. 1349 :
  113. 1350 [141]910:[153]"LOAD  (null)HEY TOTOTOTOTO IN OUT OF THE SNOW.":[141]600
  114. 1360 [153]"PRINT  (null)ELECT  [ CAME - CAM - CAMME ]":[141]860
  115. 1370 [153]"  ":[133] B$
  116. 1380 [139]B$[178]"CAME"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1400
  117. 1390 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  CAME WAIT.":[141]830:WR[178]WR[170]1
  118. 1395 [141]930:[141]780
  119. 1399 :
  120. 1400 [141]910:[153]"LOAD  LEFT$IS TOTOTOTOTO TOOK THE BLAME.":[141]600
  121. 1410 [153]"PRINT  (null)ELECT  [ SESTER - SISTER - SISER ]":[141]860
  122. 1420 [153]"  ":[133] B$
  123. 1430 [139]B$[178]"SISTER"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1500
  124. 1440 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  SISTER WAIT.":[141]830:WR[178]WR[170]1
  125. 1445 [141]930:[141]780
  126. 1449 :
  127. 1450 [141]910:[153]"LOAD  LEFT$AVE A TOTOTOTOTO TIME.":[141]600
  128. 1460 [153]"PRINT  (null)ELECT  [ GOD - GUD - GOOD ]":[141]860
  129. 1470 [153]"  ":[133] B$
  130. 1480 [139]B$[178]"GOOD"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1500
  131. 1490 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  GOOD WAIT.":[141]830:WR[178]WR[170]1
  132. 1495 [141]930:[141]780
  133. 1499 :
  134. 1500 [141]910:[153]"LOAD  RIGHT$ WILL TOTOTOTOTO IN THE MORNING.":[141]600
  135. 1510 [153]"PRINT  (null)ELECT  [ COME - COM - COMB ]":[141]860
  136. 1520 [153]"  ":[133] B$
  137. 1530 [139]B$[178]"COME"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1550
  138. 1540 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  COME WAIT.":[141]830:WR[178]WR[170]1
  139. 1545 [141]930:[141]780
  140. 1549 :
  141. 1550 [141]910:[153]"LOAD  (null)HEY RETURNED TO TOTOTOTOTO SEATS.":[141]600
  142. 1560 [153]"PRINT  (null)ELECT  [ THERE - THIER - THEIR ]":[141]860
  143. 1570 [153]"  ":[133] B$
  144. 1580 [139]B$[178]"THEIR"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1600
  145. 1590 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  THEIR WAIT.":[141]830:WR[178]WR[170]1
  146. 1595 [141]930:[141]780
  147. 1599 :
  148. 1600 [141]910:[153]"LOAD  (null)E'LL CAL YOU WHEN TOTOTOTOTO READY.":[141]600
  149. 1610 [153]"PRINT  (null)ELECT  [ ITS - IT'S - IT ]":[141]860
  150. 1620 [153]"  ":[133] B$
  151. 1630 [139]B$[178]"IT'S"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1650
  152. 1640 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  IT'S WAIT.":[141]830:WR[178]WR[170]1
  153. 1645 [141]930:[141]780
  154. 1649 :
  155. 1650 [141]910:[153]"LOAD  STR$O TOTOTOTOTO KNOW THE ANSWER?":[141]600
  156. 1660 [153]"PRINT  (null)ELECT  [ YOU - YEW - YUE ]":[141]860
  157. 1670 [153]"  ":[133] B$
  158. 1680 [139]B$[178]"YOU"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1700
  159. 1690 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  YOU WAIT.":[141]830:WR[178]WR[170]1
  160. 1695 [141]930:[141]780
  161. 1699 :
  162. 1700 [141]910:[153]"LOAD  RIGHT$ WANT TO START TOTOTOTOTO.":[141]600
  163. 1710 [153]"PRINT  (null)ELECT  [ NOW - KNO - NOWE ]":[141]860
  164. 1720 [153]"  ":[133] B$
  165. 1730 [139]B$[178]"NOW"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1750
  166. 1740 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  NOW WAIT.":[141]830:WR[178]WR[170]1
  167. 1745 [141]930:[141]780
  168. 1749 :
  169. 1750 [141]910:[153]"LOAD  RIGHT$ WILL SEE YOU AFTER TOTOTOTOTO.":[141]600
  170. 1760 [153]"PRINT  (null)ELECT  [ SKOOL - SHOOL - SCHOOL ]":[141]860
  171. 1770 [153]"  ":[133] B$
  172. 1780 [139]B$[178]"SCHOOL"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1800
  173. 1790 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  SCHOOL WAIT.":[141]830:WR[178]WR[170]1
  174. 1795 [141]930:[141]780
  175. 1799 :
  176. 1800 [141]910:[153]"LOAD  STR$O YOU WANT ONE TOTOTOTOTO OR TWO.":[141]600
  177. 1810 [153]"PRINT  (null)ELECT  [ EGGE - EGG - EGE ]":[141]860
  178. 1820 [153]"  ":[133] B$
  179. 1830 [139]B$[178]"EGG"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1850
  180. 1840 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  EGG WAIT.":[141]830:WR[178]WR[170]1
  181. 1845 [141]930:[141]780
  182. 1849 :
  183. 1850 [141]910:[153]"LOAD  CHR$IVE THE BOOK TO TOTOTOTOTO.":[141]600
  184. 1860 [153]"PRINT  (null)ELECT  [ HEM - HIM - HEME ]":[141]860
  185. 1870 [153]"  ":[133] B$
  186. 1880 [139]B$[178]"HIM"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1900
  187. 1890 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  HIM WAIT.":[141]830:WR[178]WR[170]1
  188. 1895 [141]930:[141]780
  189. 1899 :
  190. 1900 [141]910:[153]"LOAD  RIGHT$ NEED TOTOTOTOTO MORE MONEY.":[141]600
  191. 1910 [153]"PRINT  (null)ELECT  [ SUM - SOM - SOME ]":[141]860
  192. 1920 [153]"  ":[133] B$
  193. 1930 [139]B$[178]"SOME"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]1950
  194. 1940 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  SOME WAIT.":[141]830:WR[178]WR[170]1
  195. 1945 [141]930:[141]780
  196. 1949 :
  197. 1950 [141]910:[153]"LOAD  (null)HO TOTOTOTOTO YOU THAT?":[141]600
  198. 1960 [153]"PRINT  (null)ELECT  [ TOLE - TOLD - TOLL ]":[141]860
  199. 1970 [153]"  ":[133] B$
  200. 1980 [139]B$[178]"TOLD"[167][153]"OPEN   LEN(null)(null)(null)VALLEN(null) WAIT":[141]800:[137]2000
  201. 1990 [153]"   (null)(null)! WAIT SYS (null)HE CORRECT WORD IS  TOLD WAIT.":[141]830:WR[178]WR[170]1
  202. 1995 [141]930:[141]780
  203. 1999 :
  204. 2000 [151]53280,0:[151]53281,0:[151]646,1:[141]700
  205. 2010 [153]"LOAD  LEFT$ERE IS YOUR SCORE:":[141]910:[141]860
  206. 2020 [153]"  (null)OU GOT "20[171]WR" CORRECT ANSWERS
  207. 2030 PRINT"  [217]OU MADE "WR" MISTAKES.":GOSUB920:GOSUB860
  208. 2040 IFWR=0THENPRINT"  [197]XCELLENT!
  209. 2050 [139]WR[179]2[167][153]"  CHR$OOD WORK!"
  210. 2060 [139]WR[177]2[167][153]" CLOSE(null)OU CAN DO BETTER!":[141]810
  211. 2070 [139]WR[177]2[167][153]"  (null)RY AGAIN.
  212. 2080 GOSUB920:GOSUB780
  213. 2100 PRINT"[147]  [196]ECISION TIME:
  214. 2110 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS UNIT.
  215. 2115 PRINT"  [208]RESS  [195] [146] TO LOAD [195][200][193][204][204][197][206][199][197] 3.
  216. 2120 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENU.
  217. 2125 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN2130
  218. 2130 IFR$="R"THENRESTORE:WR=0:GOTO100
  219. 2135 IFR$="M"THENRESTORE:WR=0:GOTO2160
  220. 2140 PRINT"[147] [204]OADING [195][200][193][204][204][197][206][199][197] 3"
  221. 2145 LOAD"CHALLENGE 3",8
  222. 2150 RUN
  223. 2155 END
  224. 2160 PRINT"[147] [210]ETURNING TO THE DISK MENU"
  225. 2165 LOAD"MENU",8
  226. 2170 RUN
  227. 2175 END
  228. 2200 REM WHC 91:01:05
  229.